Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data

Namespace BusinessLogic
    Public Class Suggestion
        Implements ModelLayer.ISuggestion

        Public Function Load() As DataTable
            Return DataAccess.SuggestionData.Load(Me)
        End Function
        Dim _Advertisement As String
        Public Property Advertisement() As String Implements ModelLayer.ISuggestion.Advertisement
            Get
                Return _Advertisement
            End Get
            Set(ByVal value As String)
                _Advertisement = value
            End Set
        End Property
        Dim _Comments As String
        Public Property Comments() As String Implements ModelLayer.ISuggestion.Comments
            Get
                Return _Comments
            End Get
            Set(ByVal value As String)
                _Comments = value
            End Set
        End Property

        Dim _DateTimeStamp As Date
        Public Property DateTimeStamp() As Date Implements ModelLayer.ISuggestion.DateTimeStamp
            Get
                Return _DateTimeStamp
            End Get
            Set(ByVal value As Date)
                _DateTimeStamp = value
            End Set
        End Property
        Dim _General As String
        Public Property General() As String Implements ModelLayer.ISuggestion.General
            Get
                Return _General
            End Get
            Set(ByVal value As String)
                _General = value
            End Set
        End Property
        Dim _IPAddress As String
        Public Property IPAddress() As String Implements ModelLayer.ISuggestion.IPAddress
            Get
                Return _IPAddress
            End Get
            Set(ByVal value As String)
                _IPAddress = value
            End Set
        End Property
        Dim _Link As String
        Public Property Link() As String Implements ModelLayer.ISuggestion.Link
            Get
                Return _Link
            End Get
            Set(ByVal value As String)
                _Link = value
            End Set
        End Property
        Dim _Rating As Integer
        Public Property Rating() As Integer Implements ModelLayer.ISuggestion.Rating
            Get
                Return _Rating
            End Get
            Set(ByVal value As Integer)
                _Rating = value
            End Set
        End Property
        Dim _SubCategory As String
        Public Property SubCategory() As String Implements ModelLayer.ISuggestion.SubCategory
            Get
                Return _SubCategory
            End Get
            Set(ByVal value As String)
                _SubCategory = value
            End Set
        End Property
        Dim _Username As String
        Public Property Username() As String Implements ModelLayer.ISuggestion.Username
            Get
                Return _Username
            End Get
            Set(ByVal value As String)
                _Username = value
            End Set
        End Property
        Dim _Website_Name As String
        Public Property Website_Name() As String Implements ModelLayer.ISuggestion.Website_Name
            Get
                Return _Website_Name
            End Get
            Set(ByVal value As String)
                _Website_Name = value
            End Set
        End Property
    End Class
End Namespace